#!/usr/bin/perl -ws
#print "p=$p\n";
$prev = "";
while (defined ($line = <>)) {
	if (($prev =~ /String Item/) && ($line =~ /^],/)) {
		$nline = $prev;
		$nline =~ s/[\r\n]*$//;
		if ($nline ne $prev) {
			print "$nline $line";
		} else {
			print "$nline$line";
		}
		$prev = "";
	} else {
		print $prev;
		$prev = $line;
	}
}

print $prev;
